﻿Imports System.Web
Public Class ParamBuilder
    Private ParamString As String

    Sub addParam(ByVal paramName As String, ByVal paramData As String)
        ParamString = ParamString & paramName & "=" & HttpUtility.UrlEncode(paramData) & "&"
    End Sub

    Function GetParamList() As String
        Try
            Return Left(ParamString, Len(ParamString) - 1)
        Catch ex As Exception
            Return ""
        End Try
    End Function
End Class
